home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / CHANGEPW.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  25 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  accept s0 "\r\nNew password for '%remote': ";if !%s0 return
  6. new:
  7.  if r w;close
  8.  display inhibit;open -!g %lib/%ZCUSER.ids;display noinhibit;if !t return
  9.  ki;create -yS!i %lib/%ZCUSER.new
  10. next:
  11.  setc z0 \032;grab s1;ife !t goto eof;if Iz0,s1 closetx;goto eof
  12.  split s1 , , ""
  13.  if %s0&&Iz0,remote sets s1 "%z0,%s0";ife %z2 sets s1 "%s1,%z2";set s0 ""
  14.  echof "\T%s1";goback next
  15. eof:
  16.  if r w;close
  17.  if c ki;create -+S!i %n9/ZC%d%ano.LOG
  18.  if %s0 del %lib/%ZCUSER.new;lput "Entry for '%remote' not found\r\n";return
  19.  if !f%lib/%ZCUSER.new lput "Error creating '%lib/%ZCUSER.new' - aborted\r\n\n";return
  20.  if f%lib/%ZCUSER.old del %lib/%ZCUSER.old
  21.  obey "!~move %lib/%ZCUSER.ids %lib/%ZCUSER.old"
  22.  obey "!~move %lib/%ZCUSER.new %lib/%ZCUSER.ids"
  23.  lput "Password for '%remote' updated in '%lib/%ZCUSER.ids'\r\n\n"
  24.  return
  25.